﻿Imports SNCS
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels

Public Class Auth
  'Implements IAuthorizeRemotingConnection

  'Sub New()
  '  Dim id As String = Server.GetDB("SERVER.USERS")
  'End Sub

  'Public Function IsConnectingEndPointAuthorized(endPoint As Net.EndPoint) As Boolean Implements IAuthorizeRemotingConnection.IsConnectingEndPointAuthorized
  '  'My.Settings.
  'End Function

  'Public Function IsConnectingIdentityAuthorized(identity As Security.Principal.IIdentity) As Boolean Implements IAuthorizeRemotingConnection.IsConnectingIdentityAuthorized
  '  Dim id As String = Server.GetDB("SERVER.USERS")
  '  Server.GetPrivateValue(Guid.Parse(id), identity.Name)
  'End Function
End Class
